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ae 
FUNCTIONAL DESCRIPTION: | 


Define FORTRAN error numbers as GLOBALs. 
These have the form FORSK_abcmnoxyz. 
They are small_integers. They appear in field STS$V_CODE | 
of the VAX-11 32-bit condition value. | 
They are the FORTRAN error numbers used in ERRSNS. 
The FORTRAN facility number is also defined. 


CALLING SEQUENCE: 


OOOCOCGWOCOCCOCSCSO VP, 


CGOOCOCOCOCOCSCOSOCS COCO OOCCO OOOO OCOCOOCOOOOOOOOOOOoOoOO Mme 


NONE 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


ns ss ss ss a a ss 


END 3; End of module FORSENODEF 
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Symbol table 


The working set Limit was 900 pages. 


126 source Lines were read in Pass 1 


Macro Library name 
"$255$DUA28: CFORRTL.OBJJFORRTL.MLB;1 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 
TOTALS (all libraries) 


Phase Page faults 
Initialization 29 
i processing wt 
Ce sbol table sort 0 
Pass 2 39 
Symbol table output 1 
Psect synopsis output 2 
Cross-reference output 0 
Assembler run totals 290 


¢eecece 


J 
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See eee me mae + 


! i _Psect synopsis ! 


PSECT name Allocation 


$wwewccoecccccccocccccccn 


eee enact eee eee son ecesecaees + 


CPU Time 

00:00:00.07 
00:00:00.54 
00:00:00.68 
00:00:00.03 
00:00:00.32 
00:00:00.01 
00:00:00.01 
00:00:00.00 
00:00:01.66 


wom eee oe eee eoweeeeeeeooeon} 


63 GETS were required to define 1 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:F ORENODEF /OBJ=OBJ$:F ORENODEF in elgg pct Monro onsite Sia 


Sema nea am aoe $+ 


PSECT No. 
, Rf C 9} NOPIC 
. PIC 


Elapsed Time 
00:00:01.36 
00:00:03.65 
00:00:02.48 
00:00:00.13 
See SS 
00:00:00.08 
00:00:00.02 
00:00:00.00 
00:00:09.68 


2873 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table eqn eePael ag iy to hold 
roducin 

3 pages of virtual memory were used gh 1 +d 


cro V04-00 
RCIF ORENODEF .MAR; | 


Attributes 


61 non-local and 0 local symbols. 
11 object records in Pass 
macro. 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR E RD NOWRT NOVEC LONG | 
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